Option Explicit
Sub O_Sample009()
    Dim myMdl   As VBIDE.CodeModule
    Dim myStRow As Long
    Dim myStCol As Long
    Dim myEdRow As Long
    Dim myEdCol As Long
    Dim myStr   As String
    Dim myRet   As Boolean
    Set myMdl = ThisWorkbook.VBProject _
      .VBComponents("Module1").CodeModule
    With myMdl
        myEdRow = 0
        Do
            myStRow = myEdRow + 1
            myStCol = 1
            myEdRow = .CountOfLines
            myEdCol = Len(.Lines(.CountOfLines, 1))
            myRet = .Find("Dim * As", _
                		myStRow, myStCol, myEdRow, myEdCol, , , True)
            If myRet = False Then Exit Do
            If LTrim(.Lines(myStRow, 1)) Like "Dim * As *" Then
               		Debug.Print Mid(.Lines(myStRow, 1), _
                     myStCol + 4, myEdCol - myStCol - 8)
                Debug.Print Mid(.Lines(myStRow, 1), myStCol)
            End If
        Loop While myStRow < .CountOfLines
    End With
    Set myMdl = Nothing				'
End Sub
